R/Brandi/Energy Tree/Multivariate_sim_0.1/plot.R

In tulliapadellini/energytree: Conditional Inference trees for mixed type data

pdf("plot_multi.pdf", width = 12) 
par(mfrow=c(3,3))
 plot(data[[14]]$V1[1:50], col="red", main="V1")
 lines(data[[14]]$V1[20], lwd=2, col="gray20")
 plot(data[[14]]$V2[1:50], col="red", main="V2")
 lines(data[[14]]$V2[20], lwd=2, col="gray20")
 plot(data[[14]]$V3[1:50], col="red", main="V3")
 lines(data[[14]]$V3[20], lwd=2, col="gray20")
 plot(data[[14]]$V1[51:100], col="lightblue", main="")
 lines(data[[14]]$V1[70], lwd=2)
 plot(data[[14]]$V2[51:100], col="lightblue", main="")
 lines(data[[14]]$V2[70], lwd=2)
 plot(data[[14]]$V3[51:100], col="lightblue", main="")
 lines(data[[14]]$V3[70], lwd=2)
 plot(data[[14]]$V1[101:150], col="green", main="")
 lines(data[[14]]$V1[120], lwd=2, col="purple")
 plot(data[[14]]$V2[101:150], col="green", main="")
 lines(data[[14]]$V2[115], lwd=2, col="purple")
 plot(data[[14]]$V3[101:150], col="green", main="")
 lines(data[[14]]$V3[120], lwd=2, col="purple")
dev.off()